|
|
| <%=AType%> |
<%
sql= "select count(*) from WR_Art"
set rs = conn.execute(sql)
T_Total = rs(0)
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select Id,Title,Type,Time from WR_Art where Type="&Id&" order by Id Desc"
rs.open sql,conn,1
if not rs.eof then
rs.pagesize = 20
PageCount = rs.PageCount
PageNo = request("PageNo")
if not isnumeric(PageNo) then
PageNo=1
end if
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo
i=0
while not rs.eof and i29 then
ATitle=left(ATitle,29)&".."
end if
ATime=rs("Time")
%>
|
<%=ATitle%>
<%=AType%>
<%=ATime%> |
<%
i=i+1
rs.movenext
wend
end if
rs.close
%>
页次：<%=PageNO%>/<%=PageCount%> 记录条数：<%=T_Total%>
5第一页
3上一页
4下一页
6最后一页
|
|
|